WLJS Notebook 2.8.1 Preview

Better, easier, and faster deployment of your notebook to web applications

Manipulate

f[x_] := 1/x; v[a_] = Integrate[\[Pi] (*SpB[*)Power[f[x](*|*),(*|*)2](*]SpB*), {x, 1, a}, Assumptions -> a > 1]; s[a_] = Integrate[2 \[Pi] f[x] Sqrt[1 + (*SpB[*)Power[D[f[x], x](*|*),(*|*)2](*]SpB*)], {x, 1, a}, Assumptions -> a > 1]; Manipulate[ Row[{ RevolutionPlot3D[1/s, {s, 1, b}, RevolutionAxis -> {1, 0, 0}, PlotRange -> {{1, 15}, {-1, 1}, {-1, 1}}, Mesh -> None, ImageSize -> 300, Boxed -> False ], Plot[{s[x], v[x]}//Evaluate, {x, 1, 16}, ImageSize -> 300, Epilog->{Orange, PointSize[Large], Point[{b, v[b] // N}], Blue, Point[{b, s[b] // N}]} ] }] // Quiet, {{b, 2, "a"}, 1.7, 15}, ContinuousAction->True] Images

img = ImageResize[ExampleData[{"TestImage","Apples"}], 500]; Manipulate[ImageAdjust[img, i], {i,-1,1,0.3}, ContinuousAction->True]